home *** CD-ROM | disk | FTP | other *** search
Wrap
# #AmokEd 1.30 resource file for Oberon # #:Author. Volker Rudolph #Number of chars for tab set tabs 2 margin 70 tabstop $tabs pageset 90 topedge 11 leftedge 3 width 625 height 168 map sc-nk1 (ping 1) map sc-nk2 (ping 2) map sc-nk3 (ping 3) map c-nk1 (pong 1) map c-nk2 (pong 2) map c-nk3 (pong 3) map f1 (oberror next) map s-f1 (oberror prev) map f2 (oberror read) map s-f2 (oberror current) map f3 (escimm (newfile `TXT\) map f4 (newwindow f3) map f5 (escimm (chfilename `)) map s-f5 (newwindow f5) map f6 (f10 quit) map s-f6 (bsave t:AmokEd.print execute (run type t:AmokEd.print to prt:)) map f7 (f10 execute (run OMake -md \$OBProject pri -1)) map s-f7 (f10 execute (run OMake -md \$OBProject.mod pri -1)) map f8 quit map f9 (f10 iconify) map f10 (if m saveold) map A-help (escimm (set name ) insline first (\$name) first pushmark block block ref bdelete popmark) #CSI map a-esc (()) #blue map a-f1 (a-esc (30m)) #white map a-f2 (a-esc (31m)) #black map a-f3 (a-esc (32m)) #red map a-f4 (a-esc (33m)) #reverse map a-f5 (a-esc (41;30m)) #normal map a-f6 (a-esc (0m)) #cls map a-f7 (a-esc (0;0;H) a-esc (J)) #del CSI map a-f8 (find () while c<>109 del del) map c-i (ignorecase toggle) map c-f (escimm (find `)) map c-n next map c-p prev map c-r (escimm (multireplace )) map sc-f (escimm (findr )) map sc-n nextr map sc-p prevr map c-b (toggle 9 if 9 unblock block) map c-u (resettoggle 9 unblock) map c-e (resettoggle 9 bdelete) map c-m (resettoggle 9 bmove) map c-d bcopy map sc-s (goto block bsave t:AmokEd.block execute (sort T:AmokEd.block T:AmokEd.sort) bdelete insfile T:AmokEd.sort execute (delete T:AmokEd.sort T:AmokEd.block) resettoggle 9) map tab (ifelse cb (goto block while cb (first tabindent (( )) down) goto block) (repeat tr (( )))) map s-tab (ifelse cb (goto block while cb (first tabunident down) goto block) (repeat tl left) ) map c-l (escimm (insfile `)) map c-w (escimm (bsave `)) map s-bs (left while !ca (del left) while ca (del left) right) map s-del (while !ca (ifelse r abort del) while ca del) map c-bs (while !l bs) map c-del remeol map c-o (insertmode toggle) map a-del (insert ` ' left) map c-j (last join del) map c-s (-return up last) map c-y deline map sc-y undeline map c-x (insline down first if !r (while !ca (up ( ) down)) up) map sc-u undo map c-g (escimm (goto )) map sc-w (wordwrap toggle) map sc-r reformat map sc-m (escimm (margin )) map c-help ref map c-\\ (escimm (execute `)) map c-tab (first while c=32 right c-bs up while c=32 (ifelse r (down abort) (down ( ) up)) down) map return (ifelse x=1 (insline down) (ifelse r (downadd first insline c-tab) (split down c-tab) )) map s-return (firstnb down) map enter return map s-up pageup map s-down pagedown map s-left wleft map s-right wright map c-up top map c-down bottom map c-left first map c-right last map a-help (pushmark unblock block block bsource popmark) menuoff menuadd Project (Load F3 ) (arpload) menuadd Project (Load window F4 ) (newwindow arpload) menuadd Project (-------------) (null) menuadd Project (New Name F5 ) (f5) menuadd Project (New Window s-F5 ) (s-f5) menuadd Project (------------- ) (null) menuadd Project (Print s-F6 ) (s-f6) menuadd Project (Save Quit F6 ) (f6) menuadd Project (Save As ) (arpsave) menuadd Project (Quit F8 ) (f8) menuadd Project (Iconify F9 ) (f9) menuadd Project (Save F10) (f10) menuadd Search (Ignore case c-i) (c-i) menuadd Search (------------) (null) menuadd Search (Find c-f) (c-f) menuadd Search (Find Next c-n) (c-n) menuadd Search (Find Prev. c-p) (c-p) menuadd Search (------------ ) (null) menuadd Search (Replace c-r) (c-r) menuadd Block (Mark c-b) (c-b) menuadd Block (Unmark c-u) (c-u) menuadd Block (-----------) (null) menuadd Block (Move c-m) (c-m) menuadd Block (Erase c-e) (c-e) menuadd Block (Duplicate c-d) (c-d) menuadd Block (Indent tab) (tab) menuadd Block (Backdent s-tab) (s-tab) menuadd Block (----------- ) (null) menuadd Block (Load c-l) (arpinsfile) menuadd Block (Write c-w) (c-w) menuadd Block (Sort sc-s) (sc-s) menuadd Line (Split c-s) (c-s) menuadd Line (Join c-j) (c-j) menuadd Line (Delete c-y) (c-y) menuadd Line (UnDel sc-y) (sc-y) menuadd Line (Insert c-x) (c-x) menuadd Line (Undo sc-u) (sc-u) menuadd Line (----------) (null) menuadd Line (Top c-cu) (c-up) menuadd Line (End c-cd) (c-down) menuadd Misc (Overwrite mode c-o) (c-o) menuadd Misc (Goto c-g) (c-g) menuadd Misc (--------------) (null) menuadd Misc (Wordwrap sc-w) (sc-w) menuadd Misc (Reformat sc-r) (sc-r) menuadd Misc (Margin sc-m) (sc-m) menuadd Misc (-------------- ) (null) menuadd Misc (Set mark 1 sc-nk1) (sc-nk1) menuadd Misc (Set mark 2 sc-nk2) (sc-nk2) menuadd Misc (Set mark 3 sc-nk3) (sc-nk3) menuadd Misc (Goto mark 1 c-nk1) (c-nk1) menuadd Misc (Goto mark 2 c-nk2) (c-nk2) menuadd Misc (Goto mark 3 c-nk3) (c-nk3) menuadd Misc (-------------- ) (null) menuadd Misc (Reference c-help) (c-help) menuadd Misc (Cli command c-\\) (c-\\) menuadd Colors (Blue a-f1) (a-f1) menuadd Colors (White a-f2) (a-f2) menuadd Colors (Black a-f3) (a-f3) menuadd Colors (Red a-f4) (a-f4) menuadd Colors (Reverse a-f5) (a-f5) menuadd Colors (Normal a-f6) (a-f6) menuadd Colors (Cls a-f7) (a-f7) menuadd Errors (Next error F1) (f1) menuadd Errors (Previous error s-F1) (s-f1) menuadd Errors (Read errorfile F2) (f2) menuadd Errors (Current error s-F2) (s-f2) menuon # Oberon special errormode oberon addpath OBERON: map -i ((i)) map s-i ((I)) map -a ((a)) map s-a ((A)) map -e ((e)) map s-e ((E)) map a-k (firstnb `(* ' last right `*)' first down) map sa-k (up last findstr `(*' next del del del last bs bs bs firstnb down) map a-left (findstr (PROCEDURE ) prev) map a-right (findstr (PROCEDURE ) next) map a-9 ((()) left) map a-0 ((();) left left) map a-a ((AND )) map A-a ((ARRAY OF ) wleft left) map sA-a ((e.ADDRESS;)) map a-b ((BEGIN) -return) map A-b ((BOOLEAN;)) map a-c ((CASE OF) -return (END; (* CASE *)) up last wleft left) map sa-c ((CONST) -return) map A-c ((CHAR;)) map sA-c ((ARRAY OF CHAR;)) map a-d ((DIV )) map a-e ((ELSE)) map sa-e ((EXIT;) left) map A-f ((FALSE)) map a-h ((HALT(0);)) map a-i ((IF THEN) -return -return up up firstnb down down (END; (* IF *)) up up last wleft left) map sa-i ((IF THEN END;) wleft wleft left) map A-i ((INTEGER;)) map a-l ((LOOP) -return -return up up firstnb down down (END; (* LOOP *)) wleft up ( )) map A-l ((LONGINT;)) map a-m (escimm (set name ) (MODULE \$name;) return return (END \$name.) up first) map sa-m a-m map a-n ((NOT )) map A-n ((NIL )) map a-o ((OF )) map sa-o ((OR )) map a-p (escimm (set name ) (PROCEDURE \$name();) -return (VAR) -return (BEGIN) -return -return up up firstnb down down (END \$name;) up up up up last left left) map sa-p ((IMPORT ;) left) map A-p ((POINTER TO ;) left) map a-r ((REPEAT) -return -return up up firstnb down down (UNTIL ;)left) map sa-r ((RETURN ;) left) map A-r ((RECORD) -return -return up up last wleft down down (END;) firstnb up ( )) map sA-r ((REAL;)) map a-t ((TYPE) -return) map A-t ((TRUE)) map a-v ((VAR) -return) map sa-v ((VAR )) map a-w ((WHILE DO) -return -return up up firstnb down down (END; (* WHILE *)) up up last wleft left) map sa-w ((WITH DO) -return -return up up firstnb down down (END; (* WITH *)) up up last wleft left) map A-s (((* ---------------------------------------------------------------- *)) first) map help (( := ;) left) map s-help (( := )) #find bracket map a-8 (ping 9 ifelse c=40 sca-2 (if c=41 sca-4)) #search right for open or close bracket map sca-1 (right if r (down first) while ca (right if r (down first)) ifelse c=41 () (ifelse c=40 () sca-1)) #search close map sca-2 (sca-1 while c<>41 (if c=40 (sca-2 sca-1))) #search left for open or close bracket map sca-3 (if !l left if l (up last) while ca (if l (up last) left) ifelse c=41 () (ifelse c=40 () sca-3)) #search open map sca-4 (sca-3 while c<>40 (if c=41 (sca-4 sca-3)))